From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 17 Feb 1996 02:32:31 +0000 (+0000)
Subject: (Fopen_dribble_file): Check for failure.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~84478
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ab6ca1de2241ce6d2ee3ed3e1d01629d61d148e5;p=emacs.git

(Fopen_dribble_file): Check for failure.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 209bf9dc7c9..5787276e554 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6890,6 +6890,8 @@ If FILE is nil, close any open dribble file.")
     {
       file = Fexpand_file_name (file, Qnil);
       dribble = fopen (XSTRING (file)->data, "w");
+      if (dribble == 0)
+	report_file_error ("Opening dribble", Fcons (file, Qnil));
     }
   return Qnil;
 }